home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / send / programs / xmSend6.c < prev   
C/C++ Source or Header  |  1995-06-29  |  1KB  |  58 lines
  1. /*
  2.  * A Motif program to write a list of all interpreters registered,
  3.  * using the "interps" commands.
  4.  */
  5.  
  6. #include <stdio.h>
  7. #include <Xm/Label.h>
  8. #include "../tclXtSend.h"
  9.  
  10. int
  11. main(argc, argv)
  12.     int argc;
  13.     char **argv;
  14. {
  15.     Widget toplevel;
  16.     Widget rc;
  17.     Widget button;
  18.     Widget label;
  19.     Tcl_Interp *interp1, *interp2, *interp3;
  20.     XtAppContext app;
  21.  
  22.     toplevel = XtAppInitialize(&app, "XmSend", NULL, 0, &argc, argv,
  23.                 NULL, NULL, 0);
  24.  
  25.     interp1 = Tcl_CreateInterp();
  26.     interp2 = Tcl_CreateInterp();
  27.     interp3 = Tcl_CreateInterp();
  28.  
  29.     if (TclXtSend_RegisterInterp(interp1, "xmSend6.1", toplevel) == TCL_ERROR) {
  30.     fprintf(stderr, "couldn't register interpreter 6.1\n");
  31.     exit(1);
  32.     }
  33.  
  34.     if (TclXtSend_RegisterInterp(interp2, "xmSend6.2", toplevel) == TCL_ERROR) {
  35.     fprintf(stderr, "couldn't register interpreter 6.2\n");
  36.     exit(1);
  37.     }
  38.  
  39.     if (TclXtSend_RegisterInterp(interp3, "xmSend6.3", toplevel) == TCL_ERROR) {
  40.     fprintf(stderr, "couldn't register interpreter 6.3\n");
  41.     exit(1);
  42.     }
  43.  
  44.  
  45.     label = XmCreateLabel(toplevel, "a label", NULL, 0);
  46.     XtManageChild(label);
  47.  
  48.     XtRealizeWidget(toplevel);
  49.  
  50.     /*
  51.      * list interps running:
  52.      */
  53.     if (Tcl_Eval(interp1, "puts stdout [interps]") != TCL_OK)
  54.     fprintf(stderr, "Error in interps: %s\n", interp1->result);
  55.  
  56.     XtAppMainLoop(app);
  57. }
  58.